home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / BRPARTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  2.0 KB  |  87 lines
  1. unit Brparts;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;
  8.  
  9. type
  10.   TBrPartsForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Navigator: TDBNavigator;
  13.     ActivateBtn: TSpeedButton;
  14.     EditBtn: TButton;
  15.     Panel3: TPanel;
  16.     CloseBtn: TButton;
  17.     PartsGrid: TDBGrid;
  18.     Bevel1: TBevel;
  19.     procedure ActivateQuery(Sender: TObject);
  20.     procedure EditBtnClick(Sender: TObject);
  21.     procedure CloseBtnClick(Sender: TObject);
  22.     procedure FormShow(Sender: TObject);
  23.   private
  24.     function GetPartNo: Double;
  25.     procedure SetPartNo(NewPartNo: Double);
  26.   public
  27.     property PartNo: Double read GetPartNo write SetPartNo;
  28.   end;
  29.  
  30. var
  31.   BrPartsForm: TBrPartsForm;
  32.  
  33. implementation
  34.  
  35. uses EdParts, DataMod;
  36.  
  37. {$R *.DFM}
  38.  
  39. function TBrPartsForm.GetPartNo: Double;
  40. begin
  41.   Result := MastData.PartsSource.Dataset.Fields[0].AsFloat;
  42. end;
  43.  
  44. procedure TBrPartsForm.SetPartNo(NewPartNo: Double);
  45. begin
  46.   MastData.PartsSource.Dataset := MastData.Parts;
  47.   MastData.Parts.Locate('PartNo', NewPartNo, []);
  48. end;          
  49.  
  50. procedure TBrPartsForm.ActivateQuery(Sender: TObject);
  51. begin
  52.   if not ActivateBtn.Down then
  53.     MastData.PartsSource.Dataset := MastData.Parts
  54.   else
  55.     try
  56.       MastData.PartsQuery.Close;
  57.       MastData.PartsQuery.Open;
  58.       MastData.PartsSource.Dataset := MastData.PartsQuery;
  59.     except
  60.       MastData.PartsSource.Dataset := MastData.Parts;
  61.       raise;
  62.     end;
  63. end;
  64.  
  65. procedure TBrPartsForm.EditBtnClick(Sender: TObject);
  66. begin
  67.   if ActivateBtn.Down then
  68.   begin
  69.     EdPartsForm.Edit(MastData.PartsQueryPartNo.Value);
  70.     MastData.PartsQuery.Close;
  71.     MastData.PartsQuery.Open;
  72.   end else
  73.     EdPartsForm.Edit(MastData.PartsPartNo.Value);
  74. end;
  75.  
  76. procedure TBrPartsForm.CloseBtnClick(Sender: TObject);
  77. begin
  78.   Close;
  79. end;
  80.  
  81. procedure TBrPartsForm.FormShow(Sender: TObject);
  82. begin
  83.   MastData.Parts.Open;
  84. end;
  85.  
  86. end.
  87.